home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0292.ZIP / COLOR.PRG < prev    next >
Text File  |  1985-11-02  |  896b  |  32 lines
  1. *color.prg
  2. *Set screen colors from examples.  Sets border same as background.
  3. *Program is useful as callable routine from menus.
  4. *-----------------------------------------------------------------
  5. SET ECHO OFF
  6. SET TALK OFF
  7. STORE 0 TO Z,ZCOL1,ZCOL2,ZCOL3,ZCOL4
  8. ZROW=1
  9. SET COLOR TO 1/0
  10. CLEAR
  11. DO WHILE Z<16
  12.   Z=Z+1
  13.   ZC=STR(Z)
  14.   SET COLOR TO &ZC/0
  15.   @ZROW+Z,1 SAY [COLOR ]+STR(&ZC)
  16. ENDDO
  17. SET COLOR TO 0/7
  18. @ZROW+Z,1 SAY [COLOR          0]
  19. SET COLOR TO 2/0
  20. @5,20 SAY [Choose STANDARD foreground color: ]
  21. @5,58 GET ZCOL1 PICTURE '99'
  22. @6,20 SAY [Choose STANDARD background color: ]
  23. @6,58 GET ZCOL2 PICTURE '99'
  24. @8,20 SAY [Choose ENHANCED foreground color: ]
  25. @8,58 GET ZCOL3 PICTURE '99'
  26. @9,20 SAY [Choose ENHANCED background color: ]
  27. @9,58 GET ZCOL4 PICTURE '99'
  28. READ
  29. ZC1=STR(ZCOL1)+[/]+STR(ZCOL2)+[,]+STR(ZCOL3)+[/]+STR(ZCOL4)+[,]+STR(ZCOL2)
  30. SET COLOR TO &ZC1
  31. CLEAR
  32.